home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1987 August / 1987-08.d64 / sid chip (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  809 b   |  28 lines
  1. 10 rem copyright 1987 compute! publications inc. - all rights reserved
  2. 20 adr=49152:chk=0:c=0:poke 646,0
  3. 30 read byt:if byt=999 then60
  4. 40 poke adr,byt:c=c+1:adr=adr+1
  5. 50 chk=c+byt+chk:goto30
  6. 60 if chk<>12604 then100
  7. 70 sys 49152
  8. 80 for j=1 to 5000:next
  9. 90 poke 54276,0:poke 54283,0:poke 54290,0:end
  10. 100 print"[147]error in data statements. check typing."
  11. 110 data 162,024,169,000,157,000
  12. 120 data 212,202,016,250,162,024
  13. 130 data 189,064,192,157,000,212
  14. 140 data 202,016,247,120,169,038
  15. 150 data 141,020,003,169,192,141
  16. 160 data 021,003,088,169,000,133
  17. 170 data 003,096,165,003,056,233
  18. 180 data 029,133,003,141,001,212
  19. 190 data 173,028,212,141,022,212
  20. 200 data 074,074,074,074,141,015
  21. 210 data 212,076,049,234,000,000
  22. 220 data 000,000,129,013,000,001
  23. 230 data 036,000,000,021,013,000
  24. 240 data 000,004,000,007,065,012
  25. 250 data 000,000,000,247,063,065
  26. 260 data 012,000,000,000,247,063
  27. 270 data 999
  28.